home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-2 / card_38674.txt < prev    next >
Text File  |  1990-08-07  |  3KB  |  148 lines
  1. -- card: 38674 from stack: in.0-2
  2. -- bmap block id: 39473
  3. -- flags: 0000
  4. -- background id: 15301
  5. -- name: applications.1
  6. ----- HyperTalk script -----
  7. fe ae fe c5e f4e f5e es ds cs ds cs bb4s
  8. -- hidden cd fld "theOrder" holds the order that the font animation
  9. --- characters for this simulation get put into the field over the
  10. --- computer screen
  11.  
  12. on openApp
  13.   set cursor to none
  14.   repeat with n = 1 to the number of lines of cd fld "theOrder"
  15.     lock screen
  16.     if (line n of cd fld "theOrder" = "‚Ä∫") then
  17.       play "typing3" fe ae fe ce fe
  18.       wait 4
  19.       play "typing3" fe es ds
  20.       wait 3
  21.       play "typing3" fe ae fe ce fe
  22.       wait 4
  23.       play "typing3" fe es ds
  24.     end if
  25.     put line n of cd fld "theOrder" into cd fld "computerScreen"
  26.     unlock screen with iris open
  27.     wait 15
  28.   end repeat
  29. end openApp
  30.  
  31. on openApp
  32.   set cursor to none
  33.   repeat with n = 1 to the number of lines of cd fld "theOrder"
  34.     lock screen
  35.     if (line n of cd fld "theOrder" = "‚Ä∫") then
  36.       play "typing3" d
  37.       play "typing3" c
  38.       play "typing3" c
  39.       wait 4
  40.       play "typing3" c
  41.       wait 5
  42.       play "typing3"
  43.       play "typing3"
  44.       wait 2
  45.       play "typing3"
  46.     end if
  47.     put line n of cd fld "theOrder" into cd fld "computerScreen"
  48.     unlock screen with iris open
  49.     wait 15
  50.   end repeat
  51. end openApp
  52.  
  53.  
  54. -- part 6 (field)
  55. -- low flags: 01
  56. -- high flags: 0000
  57. -- rect: left=63 top=82 right=300 bottom=408
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 0
  61. -- font id: 174
  62. -- text size: 14
  63. -- style flags: 0
  64. -- line height: 14
  65. -- part name: 
  66.  
  67.  
  68. -- part 2 (field)
  69. -- low flags: 01
  70. -- high flags: 0000
  71. -- rect: left=293 top=166 right=229 bottom=361
  72. -- title width / last selected line: 0
  73. -- icon id / first selected line: 0 / 0
  74. -- text alignment: 0
  75. -- font id: 214
  76. -- text size: 80
  77. -- style flags: 0
  78. -- line height: 80
  79. -- part name: computerScreen
  80.  
  81.  
  82. -- part 3 (field)
  83. -- low flags: 81
  84. -- high flags: 4007
  85. -- rect: left=437 top=54 right=275 bottom=477
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 0 / 0
  88. -- text alignment: 0
  89. -- font id: 3
  90. -- text size: 9
  91. -- style flags: 0
  92. -- line height: 12
  93. -- part name: theOrder
  94.  
  95.  
  96. -- part 1 (button)
  97. -- low flags: 00
  98. -- high flags: 2000
  99. -- rect: left=304 top=192 right=219 bottom=347
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: 
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   openApp
  111. end mouseUp
  112.  
  113.  
  114.  
  115. -- part contents for card part 2
  116. ----- text -----
  117. ‚ÅÑ
  118.  
  119. -- part contents for card part 3
  120. ----- text -----
  121. ‚ÅÑ
  122. €
  123. ‹
  124. ‹
  125. ‹
  126. ›
  127. fi
  128. fl
  129. ‡
  130. °
  131. °
  132. °
  133. °
  134. ·
  135. ·
  136. ·
  137. €
  138. ‚ÅÑ
  139.  
  140. -- part contents for card part 6
  141. ----- text -----
  142. With a little simple HyperTalk scripting you can create a button that will open any other Macintosh application. You can then work freely in that application. When you quit, you will return to the last place where you were in HyperCard. 
  143.  
  144. Click ‚ÄúOpen Word Processor‚Äù 
  145. on the computer screen
  146. for a simulation of how a 
  147. button opens another 
  148. application.